home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / uc31-1.zip / BITBLT.SCR next >
Text File  |  1992-12-28  |  401b  |  14 lines
  1. i=0
  2. xStart = 100
  3. yStart = 100
  4. nWidth =  100
  5. nHeight = 100
  6. while(i < nWidth)
  7.   GdiEllipse(xStart,yStart,nWidth*2,nHeight*2)
  8.   GdiBitBlt(xStart-i,yStart-i,nWidth,nHeight,xStart,yStart)
  9.   GdiBitBlt(xStart+i,yStart+i,nWidth,nHeight,xStart,yStart)
  10.   GdiBitBlt(xStart+i,yStart-i,nWidth,nHeight,xStart,yStart)
  11.   GdiBitBlt(xStart-i,yStart+i,nWidth,nHeight,xStart,yStart)
  12.   i = i + 4
  13. endwhile
  14. exit